home *** CD-ROM | disk | FTP | other *** search
/ Aminet 8 / Aminet 8 (1995)(GTI - Schatztruhe)[!][Oct 1995].iso / Aminet / comm / fido / Rock_1_5.lha / ROCK / cnxtime.rexx < prev    next >
OS/2 REXX Batch file  |  1995-05-11  |  706b  |  35 lines
  1. /*
  2.              Rock v1.5 - Fidonet mailer for point systems
  3.                  Copyright (C) 1995  Jean-Marc Xiume'
  4.          This software is distributed under the terms of the
  5.     GNU General Public License. Read "license.doc" for more details.
  6.  
  7. ****************** Compute the session connect time ******************
  8. */
  9.  
  10. parse arg Shr":"Smin":"SSec" "Ehr":"Emin":"ESec
  11.  
  12. Dhr  = 0
  13. Dmin = 0
  14. Dsec = 0
  15.  
  16. IF Esec < Ssec THEN DO
  17.   Dsec = Esec - Ssec + 60
  18.   Dmin = -1
  19. END
  20. ELSE Dsec = Esec - Ssec
  21.  
  22. IF Emin < Smin THEN DO
  23.   Dmin = Dmin + 60 - Smin + Emin
  24.   Dhr = -1
  25. END
  26. ELSE Dmin = Dmin + Emin - Smin
  27.  
  28. IF Ehr < Shr THEN Dhr = Dhr + Ehr - Shr +24
  29. ELSE Dhr = Dhr + Ehr - Shr
  30.  
  31. LogMsg = Dhr":"Dmin":"Dsec
  32.  
  33.  
  34. RETURN LogMsg
  35.